home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35011.lsp < prev    next >
Text File  |  1998-03-15  |  4KB  |  120 lines
  1. ;=============350.11 LAGEREINHEIT 25E
  2.  
  3. (EAITDBL "0035011")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35011V1 (/ P1 Wi)
  8.    (EAITDBL "0035011")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt EAITofzen 4 nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "ORTHOMODE" 1)
  17.    (setvar "OSMODE" 0)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.    (command EAITege (strcat EAITpfn "35011v1") P1 "" "" EAITofkei pause)
  20.    
  21.    (setq Wi (EAITbw))
  22.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 115)) 70) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.    )
  25.  
  26.    (EAITvarz2)
  27.    (princ)
  28. )
  29.  
  30.  
  31.  
  32.  
  33. (defun C:35011V2 (/ P1 Wi)
  34.    (EAITDBL "0035011")
  35.    (princ (strcat "\n\n" EAITbez1))
  36.    (EAITvari)
  37.    (EAITvars)
  38.    (setvar "ORTHOMODE" 0)
  39.    (EAITbpt EAITofzen 4 nil)
  40.    (setq P1 (getpoint))
  41.    (if (= P1 nil)(setq P1 (EAITrpt)))
  42.    (setvar "ORTHOMODE" 1)
  43.    (setvar "OSMODE" 0)
  44.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  45.    (command EAITege (strcat EAITpfn "35011v2") P1 "" "" EAITofkei pause)
  46.    
  47.    (setq Wi (EAITbw))
  48.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 115)) 70) "" "" ""
  49.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  50.    )
  51.    (EAITDBL "0035013")    ;Abstreif- und Schmiersystem 25
  52.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 90)) 80) "" "" ""
  53.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  54.    )
  55.    (EAITvarz2)
  56.    (princ)
  57. )
  58.  
  59.  
  60.  
  61.  
  62. (defun C:35011S1 (/ P1 Wi)
  63.    (EAITDBL "0035011")
  64.    (princ (strcat "\n\n" EAITbez1))
  65.    (EAITvari)
  66.    (EAITvars)
  67.    (setvar "ORTHOMODE" 0)
  68.    (EAITbpt EAITofnaec 512 nil)
  69.    (setq P1 (getpoint))
  70.    (if (= P1 nil)(setq P1 (EAITrpt)))
  71.    (setvar "ORTHOMODE" 1)
  72.    (setvar "OSMODE" 0)
  73.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  74.    (command EAITege (strcat EAITpfn "35011s1") P1 "" "" EAITofkei pause)
  75.  
  76.    (setq Wi (EAITbw))
  77.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 58)) 60) "" "" ""
  78.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  79.    )
  80.    (EAITDBL "0035013")    ;Abstreif- und Schmiersystem 25
  81.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 10)) 55) "" "" ""
  82.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  83.    )
  84.  
  85.    (EAITvarz2)
  86.    (princ)
  87. )
  88.  
  89.  
  90.  
  91.  
  92. (defun C:35011D1 (/ P1 Wi)
  93.    (EAITDBL "0035011")
  94.    (princ (strcat "\n\n" EAITbez1))
  95.    (EAITvari)
  96.    (EAITvars)
  97.    (setvar "ORTHOMODE" 0)
  98.    (EAITbpt EAITofnaec 512 nil)
  99.    (setq P1 (getpoint))
  100.    (if (= P1 nil)(setq P1 (EAITrpt)))
  101.    (setvar "ORTHOMODE" 1)
  102.    (setvar "OSMODE" 0)
  103.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  104.    (command EAITege (strcat EAITpfn "35011d1") P1 "" "" EAITofkei pause)
  105.  
  106.    (setq Wi (EAITbw))
  107.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 328)) 23) "" "" ""
  108.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  109.    )
  110.    (EAITDBL "0035013")    ;Abstreif- und Schmiersystem 25
  111.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 328)) 63) "" "" ""
  112.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  113.    )
  114.  
  115.    (EAITvarz2)
  116.    (princ)
  117. )
  118.  
  119. (princ)
  120.